# -*- mode: snippet -*-
# name: dabestr paired group hedges g plot
# key: dabestr.paired.group.hedges_g.plot
# key: dabestr.hedges_g.Tufte_slopegraph
# --
${1:group.paired.diff} <- ${2:dt} |>
  dabestr::dabest(${3:Group}, ${4:Measurement},
                  idx = c("Control1", "Group1"),
                  paired = TRUE, id.col = ${5:ID}) |>
  dabestr::hedges_g()
$1
$1 |> plot(color.column = )